home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / A / ASU Library Folder / ASU Red Ryder Shell Source / ADMN < prev    next >
Encoding:
Text File  |  1988-04-07  |  444 b   |  33 lines  |  [TEXT/MACA]
  1. (ADMINISTRATIVE IBM VIA DEFENDER)
  2. COPYINTO B$,S$
  3. CONCAT B$,-E-7-1-FULL
  4. COMM B$
  5. SHELL F%,1200
  6. TEST F% = 2
  7. SCREEN ON
  8. CONTAINS L$,TOUCHTONE
  9. IF YES COPYINTO D$,ATDT 
  10. CONTAINS L$,PULSE
  11. IF YES COPYINTO D$,ATDP 
  12. CONCAT D$,N$
  13. CONCAT D$,,,,,
  14. (APPEND THE DEFENDER ID IN I$)
  15. CONCAT D$,I$
  16. CONCAT D$,#,,,,#,,;H^M
  17. TYPE ATH^M
  18. PAUSE
  19. TYPE ATZ^M
  20. PAUSE
  21. DIAL D$
  22. PAUSE
  23. PROMPT RING
  24. PAUSE
  25. TYPE ATD^M
  26. PROMPT CONNECT
  27. PAUSE
  28. TYPE ^M
  29. PAUSE
  30. PROMPT TYPE:
  31. PAUSE
  32. TYPE VT100^M
  33.